home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / EDUCATE / TUTORII.ARJ / INSTALL.PAS < prev    next >
Pascal/Delphi Source File  |  1991-12-01  |  4KB  |  126 lines
  1. {$M 2048, 0, 0}
  2. PROGRAM install;
  3.  
  4.       USES dos, crt;
  5.       LABEL 1,EXIT;
  6.  
  7.       VAR
  8.         TEST : STRING[127];
  9.         CONT :STRING;
  10.         COMMAND:STRING[127];
  11. {*************************************************}
  12. PROCEDURE cursor(startingline, stoppingline : byte);
  13. VAR
  14.    regs : registers;
  15. BEGIN
  16.      with regs do begin
  17.           AH := $01;
  18.           CH := STARTINGLINE;
  19.           CL := STOPPINGLINE;
  20.           InTr($10, regs );
  21.           end;
  22. end;   
  23. {**************************************************}
  24. PROCEDURE MAKEDIR;
  25. BEGIN
  26.      TEXTCOLOR (CYAN);
  27.      CURSOR ($6,$7);
  28.      WRITELN('PLEASE ENTER WHERE YOU WANT TO INSTALL THE');
  29.      WRITE('PROGRAM (DRIVE AND DIRECTORY), FOR EXAMPLE "C:\TUTOR" :');
  30.      READLN(Command);
  31.      CURSOR ($20,$00);
  32.      If Command <> '' then
  33.      BEGIN
  34.        SWAPVECTORS;
  35.        TEST:='MD ';
  36.        Exec(GetEnv('COMSPEC'), '/C '+TEST+Command);
  37.        SWAPVECTORS;
  38.      END;
  39. END;
  40. {****************************************************}
  41. PROCEDURE COPYFILES;
  42. BEGIN
  43.        TEXTCOLOR (CYAN);
  44.        WRITELN ('NOW COPYING DATA FILES.');
  45.        exec(getenv( 'COMSPEC' ), ' /C  copy *.dat '+COMMAND);
  46.        exec(getenv( 'COMSPEC' ), ' /C  copy RE*.txt '+COMMAND);
  47.        WRITELN ('NOW COPYING PROGRAM FILES.');
  48.        exec(getenv( 'COMSPEC' ), ' /C  copy DOSTUTOR.exe '+COMMAND);
  49.        WRITELN ('NOW COPYING INSTALL FILES.');
  50.        exec(getenv( 'COMSPEC' ), ' /C  copy install.exe '+COMMAND);
  51.        WRITELN ('NOW COPYING GRAPHIC FILES.');
  52.        exec(getenv( 'COMSPEC' ), ' /C  copy *.BGI '+COMMAND);
  53.        exec(getenv( 'COMSPEC' ), ' /C  copy *.CHR '+COMMAND);
  54.        clrscr;
  55.        CURSOR ($6,$7);
  56.        GOTOXY (1,10);
  57.        WRITELN ('FINISHED INSTALLING DOS 5.0 TUTOR VERSION 2.0.');
  58.        WRITELN;
  59.        WRITELN ('PLEASE CHANGE TO THE "',COMMAND,'" DIRECTORY');
  60.        WRITELN ('BY ENTERING: " CD ',COMMAND,'"  THEN CHANGE TO ');
  61.        WRITELN ('THE CORRESPONDING DRIVE.');
  62.        WRITELN ;
  63.        WRITELN ('TYPE "        " TO START THE PROGRAM.');
  64.        TEXTCOLOR (YELLOW);
  65.        GOTOXY (15,13); WRITE ('cd  ',COMMAND,'');
  66.        TEXTCOLOR (YELLOW);
  67.        GOTOXY (23,12);
  68.        WRITE (COMMAND);
  69.        GOTOXY (7,16);
  70.        WRITE ('DOSTUTOR');
  71.        GOTOXY (1,20);
  72.        TEXTCOLOR (BLACK);
  73.        SOUND (390);         DELAY (150);
  74.        SOUND (430);         DELAY (150);
  75.        SOUND (560);         DELAY (150);
  76.        SOUND (350);         DELAY (170);
  77.        NOSOUND;
  78.        SwapVectors;
  79.        CURSOR ($6,$7);
  80. END;
  81.  
  82.  
  83. {***********************MAIN PROGRAM********************}
  84. BEGIN
  85.      CLRSCR;
  86.      TEXTCOLOR (WHITE);
  87.      WRITELN ('                  ╔════════════════════════╗');
  88.      WRITELN ('                  ║   I N S A L L I N G:   ║');
  89.      WRITELN ('                  ║     DOS 5.0 TUTOR      ║');
  90.      WRITELN ('                  ║      VERSION 2.0       ║');
  91.      WRITELN ('                  ╚════════════════════════╝');
  92.      TEXTCOLOR (LIGHTBLUE);
  93.      GOTOXY (22,2);
  94.      WRITE ('I N S T A L L I N G:');
  95.      GOTOXY (1,5);
  96.      WRITELN;
  97.      WRITELN;
  98.      TEXTCOLOR (CYAN);
  99.      WRITELN ('IF YOU WISH TO CONTINUE INSTALLING');
  100.      WRITELN ('ENTER " ", ELSE, PRESS <     > TO EXIT:');
  101.      TEXTCOLOR (LIGHTRED);
  102.      GOTOXY (8,8);
  103.      WRITE ('Y');
  104.      GOTOXY (25,8);
  105.      WRITE ('ENTER');
  106.      TEXTCOLOR (WHITE);
  107.      GOTOXY (40,8);
  108.      READLN (CONT);
  109.      IF (CONT ='Y') OR  (CONT='y') THEN GOTO 1
  110.      ELSE GOTO EXIT;
  111.      clrscr;
  112.    1:
  113.      MAKEDIR;
  114.      IF COMMAND<> '' THEN
  115.      BEGIN
  116.            COPYFILES;
  117.      END;
  118.  
  119. EXIT:
  120.      
  121.      CURSOR ($6,$7);
  122.  
  123. END.
  124.  
  125.  
  126.